home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tcl8.0 / mac / tclMacApplication.r < prev    next >
Encoding:
Text File  |  1997-08-15  |  1.8 KB  |  76 lines  |  [TEXT/CWIE]
  1. /* 
  2.  * tclMacApplication.r --
  3.  *
  4.  *    This file creates resources for use Tcl Shell application.
  5.  *    It should be viewed as an example of how to create a new
  6.  *    Tcl application using the shared Tcl libraries.
  7.  *
  8.  * Copyright (c) 1996-1997 Sun Microsystems, Inc.
  9.  *
  10.  * See the file "license.terms" for information on usage and redistribution
  11.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12.  *
  13.  * SCCS: @(#) tclMacApplication.r 1.2 97/06/20 11:27:07
  14.  */
  15.  
  16. #include <Types.r>
  17. #include <SysTypes.r>
  18.  
  19. /*
  20.  * The folowing include and defines help construct
  21.  * the version string for Tcl.
  22.  */
  23.  
  24. #define RESOURCE_INCLUDED
  25. #include "tcl.h"
  26.  
  27. #if (TCL_RELEASE_LEVEL == 0)
  28. #   define RELEASE_LEVEL alpha
  29. #elif (TCL_RELEASE_LEVEL == 1)
  30. #   define RELEASE_LEVEL beta
  31. #elif (TCL_RELEASE_LEVEL == 2)
  32. #   define RELEASE_LEVEL final
  33. #endif
  34.  
  35. #if (TCL_RELEASE_LEVEL == 2)
  36. #   define MINOR_VERSION (TCL_MINOR_VERSION * 16) + TCL_RELEASE_SERIAL
  37. #else
  38. #   define MINOR_VERSION TCL_MINOR_VERSION * 16
  39. #endif
  40.  
  41. resource 'vers' (1) {
  42.     TCL_MAJOR_VERSION, MINOR_VERSION,
  43.     RELEASE_LEVEL, 0x00, verUS,
  44.     TCL_PATCH_LEVEL,
  45.     TCL_PATCH_LEVEL ", by Ray Johnson © Sun Microsystems"
  46. };
  47.  
  48. resource 'vers' (2) {
  49.     TCL_MAJOR_VERSION, MINOR_VERSION,
  50.     RELEASE_LEVEL, 0x00, verUS,
  51.     TCL_PATCH_LEVEL,
  52.     "Tcl Shell " TCL_PATCH_LEVEL " © 1996"
  53. };
  54.  
  55. #define TCL_APP_CREATOR 'Tcl '
  56.  
  57. type TCL_APP_CREATOR as 'STR ';
  58. resource TCL_APP_CREATOR (0, purgeable) {
  59.     "Tcl Shell " TCL_PATCH_LEVEL " © 1996"
  60. };
  61.  
  62. /*
  63.  * The 'kind' resource works with a 'BNDL' in Macintosh Easy Open
  64.  * to affect the text the Finder displays in the "kind" column and
  65.  * file info dialog.  This information will be applied to all files
  66.  * with the listed creator and type.
  67.  */
  68.  
  69. resource 'kind' (128, "Tcl kind", purgeable) {
  70.     TCL_APP_CREATOR,
  71.     0, /* region = USA */
  72.     {
  73.         'APPL', "Tcl Shell",
  74.     }
  75. };
  76.